home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / t_os / booklike / knjpchk.bas < prev    next >
BASIC Source File  |  1991-10-18  |  1KB  |  44 lines
  1. 100 '
  2. 110 ' 漢字ドットチェック
  3. 120 '                        91.06.11    ＫＤ
  4. 130 '
  5. 140 ' 漢字１文字かＪＩＳコードを入力する
  6. 150 ' コードの前に＆ｈは不要
  7. 160 ' 表示後何かキーを押すと再び入力出来る
  8. 170 ' リターンのみで終了
  9. 180 '
  10. 190 ON ERROR GOTO *ERR
  11. 200 DIM Y$(15)
  12. 210 Y$( 0)="１":Y$( 1)="２":Y$( 2)="３":Y$( 3)="４":Y$( 4)="５"
  13. 220 Y$( 5)="６":Y$( 6)="７":Y$( 7)="８":Y$( 8)="９":Y$( 9)="："
  14. 230 Y$(10)="；":Y$(11)="＜":Y$(12)="＝":Y$(13)="＞":Y$(14)="？"
  15. 240 Y$(15)="＠"
  16. 250 *PTOP:CONSOLE 0,24,2:COLOR 7:CLS
  17. 260   INPUT "漢字 OR ＪＩＳコード : ",A$
  18. 270   IF A$="" THEN *END
  19. 280   IF LEN(A$)=4 THEN GOSUB *CODECHECK:CODE=VAL("&h"+A$):A$=KNJ$(CODE)
  20. 290   SYMBOL(0,19*3),A$,1,1,7
  21. 300   GOSUB *DCHECK
  22. 310   TEMP$=INPUT$(1)
  23. 320 GOTO *PTOP
  24. 330 *ERR
  25. 340 RESUME *PTOP
  26. 350 *END
  27. 360 END
  28. 370 *DCHECK
  29. 380 COLOR 5:LOCATE 15,1:PRINT "１２３４５６７８９：；＜＝＞？＠";
  30. 390 FOR I=0 TO 15:LOCATE 13,I+2:PRINT Y$(I):NEXT:COLOR 7
  31. 400 FOR I=0 TO 15
  32. 410   FOR J=0 TO 15
  33. 420      IF POINT(I,19*3+J)=-1 THEN LOCATE I*2+15,J+2:PRINT "●";                    ELSE LOCATE I*2+15,J+2:PRINT "○";
  34. 430   NEXT
  35. 440 NEXT
  36. 450 RETURN
  37. 460 *CODECHECK
  38. 465 ' コンパイラは小文字のa-fを認識しないので大文字に変換する
  39. 470 FOR I=1 TO 4
  40. 480   AA=ASC(MID$(A$,I))
  41. 490   IF AA>&H60 THEN MID$(A$,I,1)=CHR$(AA-&H20)
  42. 500 NEXT
  43. 510 RETURN
  44.